perm filename P2RET[CMP,LSP] blob sn#331926 filedate 1978-01-29 generic text, type T, neo UTF8
00100	(DFUNC (P2RETURN XPR VALAC EFFECTS)
00200	       (PROG (VAL)
00300		     (SETQ VAL (CADR XPR))
00400		     (SAVEACS)
00500		     (CLRPVARS)
00600		     (COND ((EQUAL VAL (Q (QUOTE NIL))) (OUTJRST EXITN))
00700			   (T (LOADARG PVR (COMP VAL VALAC)) (OUTJRST EXIT)))
00800		     (RETURN (COND (EFFECTS NIL) (T (MARKVAL VALAC))))))